﻿Imports System.Data

'FCASTRO - 20111014 : AGREGADO
Imports VN.INS.BL.BC
'FCASTRO - 20111014 : FIN


Partial Class incidencias_ucAlerta
    Inherits System.Web.UI.UserControl
    Public Sub Mostrar_Alerta(ByVal titulo As String, ByVal mensaje As String)
        gv_faltantes.DataSource = Nothing
        gv_faltantes.DataBind()
        lblTituloAlerta.Text = titulo
        lblMensajeAlerta.Attributes.Add("display", "")
        lblMensajeAlerta.Visible = True
        lblMensajeAlerta.Text = mensaje
        mpeMensajeAlerta.Show()
    End Sub
    Public Sub Mostrar_Avance(ByVal titulo As String, ByVal mensaje As String)
        gv_faltantes.DataSource = Nothing
        gv_faltantes.DataBind()
        lblTituloAlerta.Text = titulo
        lblMensajeAlerta.Attributes.Add("display", "")
        lblMensajeAlerta.Visible = True
        lblMensajeAlerta.Text = mensaje
        mpeMensajeAlerta.Show()
        Response.Redirect("ListaAvances.aspx")
    End Sub
    Public Sub Mostrar_Faltantes(ByVal titulo As String, ByVal gv_data As DataTable)
        lblTituloAlerta.Text = titulo
        lblMensajeAlerta.Visible = False
        gv_faltantes.DataSource = gv_data
        gv_faltantes.DataBind()
        gv_faltantes.Style.Add("display", "")
        mpeMensajeAlerta.Show()
    End Sub
    Public Sub Mostrar_posible(ByVal titulo As String, ByVal gv_data As DataTable)
        lblTituloAlerta.Text = titulo
        lblMensajeAlerta.Visible = False
        gvposible.DataSource = gv_data
        gvposible.DataBind()
        gvposible.Style.Add("display", "")
        mpeMensajeAlerta.Show()
    End Sub

    'FCASTRO - 20111014 : AGREGADO
    Public Sub Mostrar_Error(ByVal ps_titulo As String, ByVal ps_mensage As String, ByVal ps_continuar_eventclick As String, ByVal ps_detalle As String, ByVal pe_error As Exception)
        lbl_errortit.Text = ps_titulo
        ps_detalle += "Message: " & pe_error.Message.ToString() & _
            "Seguimiento:" & pe_error.StackTrace.ToString()

        'REGISTRO EL ERROR EN BD 
        ' Dim obj_bc As FuncionesBC = New FuncionesBC, li_iderror As Integer = 0
        'li_iderror = obj_bc.Registra_Err(ps_detalle)
        lbl_errormsg.Text = "Ha ocurrido un error, informe al area de Tecnologia:<br/><br/>"
        'lbl_errormsg.Text += "ID_ERROR:    " & CStr(li_iderror) & "<br/>"
        lbl_errormsg.Text += "DESCRIPCION: " & ps_mensage
        btn_errorcontinuar.Attributes.Add("onClick", ps_continuar_eventclick)
        mpe_error.Show()
    End Sub
    'FCASTRO - 20111014 : FIN AGREGADO    

    Protected Sub btnSiAlerta_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnSiAlerta.Click

    End Sub
End Class
